home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / S9.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  768 b   |  35 lines
  1. 10   PRINT "STUDENT'S T-DISTRIBUTION"
  2. 20   PRINT 
  3. 30   PRINT "(TO END PROGRAM ENTER A T-VALUE OF 0)"
  4. 40   PRINT "T-VALUE";
  5. 50   INPUT T
  6. 60   IF T = 0 THEN 340
  7. 70   PRINT "DEGREES OF FREEDOM";
  8. 80   INPUT D
  9. 90  X = 1
  10. 100  Y = 1
  11. 110  T = T ^ 2
  12. 120   IF T < 1 THEN 170
  13. 130  S = Y
  14. 140  R = D
  15. 150  Z = T
  16. 160   GOTO 200
  17. 170  S = D
  18. 180  R = Y
  19. 190  Z = 1 / T
  20. 200  J = 2 / 9 / S
  21. 210  K = 2 / 9 / R
  22. 220  L =  ABS ((1 - K) * Z ^ (1 / 3) - 1 + J) /  SQR (K * Z ^ (2 / 3) + J)
  23. 230  IF R < 4   THEN 270
  24. 240  X = 0.25/ (1 + L * (0.196854 + L * (0.115194 + L * (0.000343999 + L * 0.019527)))) ^4
  25. 250  X = INT (X * 10000 + 0.5) / 10000
  26. 260  GOTO 290
  27. 270  L = L * (1 + 0.08 * L ^ 4/R ^ 3)
  28. 280  GOTO  240
  29. 290  IF T > = 1   THEN 310
  30. 300  X = 1 - X
  31. 310  PRINT "RIGHT TAIL VALUE =" ;X
  32. 320  PRINT
  33. 330  GOTO  40
  34. 340  RUN "STAT"
  35.